home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
convert
/
str2bm
/
test.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-06-13
|
6KB
|
143 lines
Form1
Bitmap Function Tester.
Form1
CommandCopyResultToB
Copy RESULT to B
CommandAnd
RESULT = A AND B
PictureResult
CommandOr
RESULT = A OR B
CommandInvertA
Invert A
CommandCompareAtoB
Compare A to B
PictureA
PictureB
CommandCopyAtoB
Copy A to B
CommandDrawCircle
Draw Circles in A
Write line to A
Label3
MS Sans Serif
Label2
MS Sans Serif
Label1
Result
MS Sans Serif
Command1_Click
BMPToString
Form_Load
Picture1
Image
Picture1_ClickJ
ScaleHeight
ScaleWidth+
GlobaT
Command2_Click
converting
bitmap
extern
PASCALx
export
HBITMAP]
hImage
LPSTR
variables
hOldBitmap
information
about
GetObject
sizeof
SelectObject
Copy@
GetBitmapBits
bmHeightI
bmWidthBytes_
DeSelect
Picture2
StringToBmpl
StringBMPSize
bytes
Picture
CommandCompare_Clickq
StringBMPCompare
StringBMP_GetSize
large
store
StringBMP_CompareL
CommandInvert_Click
spaces
BMPString_Invert
StringBMP_SetSize
StringBMP_Inverto
BMP_GetSize
StringBMP_Copy
CommandOr_Click
StringBMP_Or
Picture3
Label3_Click
Label2_Click
CommandAnd_ClickB
StringBMP_and
Command3_Click
CommandCopy_Click
CommandInner_Click&
StringBMP_Inner|
CommandOuter_Click9
StringBMP_OuterO
StringBMP_GetOuter
StringBMP_GetInner
StringBMP_MakeBlack
CommandWhite_Click
CommandBlack_Click
StringBMP_MakeWhite
FillStyle
PictureA
PictureB
PictureResult)
CommandDrawCircle_ClickL
CommandCopyAtoB_Click
RESULTh
CommandCompareAtoB_Click
CommandCopyResultToB_Click
CommandInvertA_Click
FillColor
TEMPX
Strings to hold pixel information.t
CommandAnd_Click
Bitmap too large to store!
CommandCompareAtoB_Click
Bitmap too large to store!
Bitmaps must be same size to compare.
This difference is
pixels.
CommandCopyAtoB_Click
Fill PictureBox with information in B$u
Display the new information
CommandCopyResultToB_Click
Copy RESULT to B (STRINGS!)
Convert the new B$ to a picture and display it!
CommandDrawCircle_Click
Draw a black circle
Determine the size of a string required to hold PictureAk
Bitmap too large to store as a string!
Create a string of the proper size to hold picture box.
Convert PictureA into A$r
CommandInvertA_Click
Determine the size of a string required to hold PictureAd
Bitmap too large to store!
Make sure space is allocated to hold all pixels in strings.
Copy PictureA into A$
Invert A$ and store the result in RESULT$
Convert A$ into a picture box and display.
CommandOr_Click
Make sure strings are correct size to hold bitmap info.
The following code works only if all three bitmaps are the
same size.
Bitmap too large to store!
Fill A$ and B$ with the bitmaps in PictureA and PicutreB, respectively.
Or the pixels in A$ with those in B$ to create RESULT$
Convert the RESULT$ into a picture box and display it.e